8 POKE56,56:CLR:POKE53371,0:POKE788,49:TQ=TI
10 DV=PEEK(186):IFDV<8THENDV=8
20 POKE53281,0:POKE53280,0:PRINT"[147]":GOSUB60000
30 SYS57812"AMADEUS MOUSE2.1",DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
32 SYS57812"AMADEUS FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
34 SYS57812"AMADEUS SID",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
36 SYS49615
38 D%(1)=74
40 FORI=1TO8
42 READF$(I),N$(I)
44 SYS57812F$(I),DV,0:POKE780,0:POKE781,0:POKE782,D%(I):SYS65493
46 D%(I+1)=PEEK(175)+1:E(I)=PEEK(174)+256*PEEK(175)
48 NEXT
50 DATA"K110-12MOZAR.MUS","[211]YMPHONY [206]O.12 [203].110"
51 DATA"K112-13MOZAR.MUS","[211]YMPHONY [206]O.13 [203].112"
52 DATA"K114-14MOZAR.MUS","[211]YMPHONY [206]O.14 [203].114"
53 DATA"K120-MOZART.MUS","[211]YMPHONY [203].120"
54 DATA"K124-15MOZAR.MUS","[211]YMPHONY [206]O.15 [203].124"
55 DATA"K128-16MOZAR.MUS","[211]YMPHONY [206]O.16 [203].128"
56 DATA"K129-17MOZAR.MUS","[211]YMPHONY [206]O.17 [203].129"
57 DATA"K130-18MOZAR.MUS","[211]YMPHONY [206]O.18 [203].130"
64 ML=64*256:MV=ML+156:V=53248
66 POKEMV+1,158
68 POKEV+21,0:SYSML:SYSML+6,14*64
70 PRINT"[147]":POKE53272,31:SYSML+126,0,38,0,24,254,255,14,4
78 SYSML+30,3,36,2,9,255,6
80 SYSML+30,2,35,1,8,160,3+16
88 PRINT"[153]";
90 SYSML+27,2,"[204][207][193][196][211][212][193][210] [208]ROUDLY [208]RESENTS
92 [153]"";
94 [158]ML[170]12,16,3,"(null) LEFT$ VAL"
100 [158]ML[170]12,5,4,"ORTAN^ OR^OR^ ORTAN^ =TAN^ ORTAN^ ^ OR ORTAN^
102 SYSML+12,5,5,"[171][192][179] [221][173][189][221] [171][192][179] [221] [221] [171][192]  [221] [221] [173][192][174]
104 [158]ML[170]12,5,6,"EXP / EXP  / EXP / >TANEXP /TANEXP /TANEXP /TANEXP"
110 [158]ML[170]27,7,"(null) (null) (null) (null) LEFT$ (null) (null) RIGHT$ VAL (null)
112 SYSML+39,160
120 SYSML+30,3,26,12,23,255,6
122 SYSML+30,2,25,11,22,160,3+16
130 SYSML+30,29,36,12,23,255,6
132 SYSML+30,28,35,11,22,160,3+16
140 SYSML+12,30,12,"[154][208][204][193][217][157][157][157][157][211][207][206][199][157][157][157][157][157][157][159][171][192][192][192][192][192][192][179][154][157][157][157][157][157][157][208][204][193][217][157][157][157][157][193][204][204]"
142 SYSML+12,28,17,"[159][171][192][192][192][192][192][192][179][157][157][157][157][157][157][154][211][207][206][199][157][157][157][157][201][206][198][207][157][157][157][157][157][157][159][171][192][192][192][192][192][192][179][157][157][157][157][157][157][154][209][213][201][212]"
150 SYSML+15,1,29,34,12,13
152 SYSML+15,2,29,34,15,16
154 SYSML+15,3,29,34,18,19
156 SYSML+15,4,29,34,21,21
160 FORI=1TO8
162 SYSML+12,4,12+I,N$(I)
164 SYSML+15,4+I,3,24,12+I,12+I
166 NEXT
200 SYSML+9
202 REM PRINT"             "RG%;CR%
204 IFRG%THENSYSML+36,RG%,255,1:SYSML+24,2:SYSML+36,RG%,255,14
210 IFCR%THEN230
220 GOTO200
230 IFCR%=1THENGOSUB300:GOTO200 REM PLAY
240 IFCR%=2THENGOSUB400:GOTO200:REM PLAY ALL
250 IFCR%=3THENGOSUB500:GOTO200:REM INFO
260 IFCR%=4THENSYSML+3:POKE49152,0:SYS49935:PRINT"[147]":GOTO40000:REM QUIT
268 G=CR%
270 SYSML+30,2,25,11,22,160,3+16
272 FORI=1TO8
274 SYSML+12,4,12+I,N$(I)
276 NEXT
280 SYSML+36,G,255,14+128
290 GOTO200
300 IFG=0THENRETURN
302 P=1:GOSUB500:P=0
310 POKE781,0:POKE782,D%(G-4)
320 SYS49664:POKE49152,7
330 SYSML+9
332 IFPEEK(49152)=0THEN350
340 IFL2%=0THEN330
350 POKE49152,0:SYS49897
352 SYSML+42,168
360 RETURN
400 FORG=5TO12
410 GOSUB300
420 NEXT
430 RETURN
500 IF(G<1)OR(G>12)THENRETURN
502 SYSML+39,168:SYSML+42,160
510 SYSML+30,3,36,13,21,255,6
520 SYSML+30,2,35,12,20,255,3+16
530 POKE214,13:PRINT:PRINTTAB(5);
540 REM   H=E(G-4)
550 REM   FORI=HTOH-200STEP-1
560 REM   IFPEEK(I)=1THENS=I:I=H-200
570 REM   NEXT
572 S=D%(G-4)*256
574 T=S+PEEK(S)+PEEK(S+1)*256+PEEK(S+2)+PEEK(S+3)*256+PEEK(S+4)+PEEK(S+5)*256+6
580 FORI=2TO200:IFPEEK(I+T)=0THENI=200:GOTO590
582 PRINTCHR$(PEEK(I+T));:IFPEEK(I+T)=13THENPRINT"";
590 NEXT
592 IFPTHENRETURN
600 SYSML+9
610 IFL2%=0THEN600
620 SYSML+42,168
630 RETURN
999 GOTO999
10000 D=PEEK(186):N$="0:B.AMADEUS III":OPEN15,D,15,"S"+N$:CLOSE15:SAVEN$,D:END
40000 POKE53269,0
40002 FORI=8TO29:POKE820+I,I:NEXT:IFDV>8ANDDV<30THENPOKE828,DV:POKE820+DV,8
40010 A$="PRESENTER":GOSUB40030:A$="HELLO CONNECT":GOSUB40030
40020 PRINT"[147]":POKE53272,23:POKE186,8:POKE2048,0:POKE44,8:POKE43,1:END
40030 FORJ=8TO29:I=PEEK(820+J):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:RETURN
40070 A$="HELLO CONNECT":Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END
60000 PRINT"[147]":Z$=" [152]                                      ":POKE214,10:PRINT
60010 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO11:PRINTZ$:NEXT
60020 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 Z$(0)="[212][200][197] [193][205][193][196][197][213][211] [211][217][205][208][200][207][206][201][197][211] [201][201][201]"
60040 Z$(2)="BY [196]AVE [205]ARQUIS
60050 Z$(4)[178]"(C) 1999 BY MID$ & ASC (null)UBLISHING, RIGHT$NC."
60060 Z$(6)[178]"(null)HIS PRODUCT IS NOT SHAREWARE
60070 Z$(7)="OR IN THE PUBLIC DOMAIN."
60080 Z$(9)="1-800-594-3370 OR 1-318-221-8718
60090 [151]214,12:[153]:[129]I[178]0[164]9:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]
60100 [129]I[178]0[164]6:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]